home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
m
/
magicworkbenchcoll02.dms
/
magicworkbenchcoll02.adf
/
MagicExpansion
/
Install
/
Install_ME12_English
next >
Wrap
Text File
|
1996-02-28
|
7KB
|
336 lines
;
; Installation script for...
;
; +*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*
;
; MagicExpansion 1.2
; - Shareware -
; Copyright © 1994 by Johannes Beigel
;
; *+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
;
( set @default-dest "SYS:" )
( set vernum ( getversion "exec.library" ( resident ) ) )
( set ver ( / vernum 65536 ) )
( complete 0 )
; --------------------
; Ask what to install
; --------------------
( set parts
( askoptions
( prompt "Choose the items you would like installed." )
( choices "C include file"
"MUI image sets"
"Palettes"
"Patterns"
"OS 2.x window patterns"
"Mouse pointers" )
( help "C include file: Useful new definitions for MUI programming\n\n"
"MUI image sets: New MUI image sets\n\n"
"Palettes: A few new palettes (alternatives to the original MagicWB palette)\n\n"
"Patterns: New Workbench background patterns\n\n"
"OS 2.x window patterns: old-style window patterns for the \"WBPattern\" prefs-ed\n\n"
"Mouse pointers: Several normal and busy mouse pointers.\n\n" )
)
)
( complete 14 )
; --------------------
; Install the include file
; --------------------
( if( IN parts 0 )
(
( set includedest
( askdir
( prompt "Please select a place for the include file." )
( default "INCLUDE:libraries/" )
( help "Choose a directory where the include file should be copied to. The best place is"
"INCLUDE:libraries/." )
)
)
( makedir includedest )
( working "Installing include file" )
( copyfiles ( source "/include/libraries/muidefs.h" ) ( dest includedest ) )
)
)
( complete 28 )
; --------------------
; Install the MUI image sets
; --------------------
( if( IN parts 1 )
(
(set imgsetsdest
( askdir
( prompt "Please select a place for the MUI image sets." )
( default "SYS:Prefs/MUI-Images" )
( help "Choose a directory where the MUI image sets will be copied to. You should use the same "
"directory as you selected during installation of MUI (default: SYS:Prefs/Mui-Images/)." )
)
)
( makedir imgsetsdest )
( set imgsets
( askoptions
( prompt "Choose the MUI image sets you would like installed.\n" )
( choices "Jojo_Black_11pt (You MUST have this one)"
"Jojo_Black_13pt"
"Jojo_3D_11pt"
"Jojo_3D_13pt"
"Jojo_Outline_11pt"
"Jojo_Outline_13pt" )
( help "You should install at least Jojo_Black_11pt because this set contains all images.\n\n"
"The best way is, to install all the sets. Later you can delete the sets you don't like." )
)
)
( working "Installing MUI image sets" )
( if( IN imgsets 0 )
(
( copyfiles
( prompt "Installing MUI image set Jojo_Black_11pt.." )
( source "/MUI-Images/Jojo_Black_11pt" )
( all )
( dest ( tackon imgsetsdest "Jojo_Black_11pt" ) )
)
)
)
( if( IN imgsets 1 )
(
( copyfiles
( prompt "Installing MUI image set Jojo_Black_13pt.." )
( source "/MUI-Images/Jojo_Black_13pt" )
( all )
( dest ( tackon imgsetsdest "Jojo_Black_13pt" ) )
)
)
)
( if( IN imgsets 2 )
(
( copyfiles
( prompt "Installing MUI image set Jojo_3D_11pt.." )
( source "/MUI-Images/Jojo_3D_11pt" )
( all )
( dest ( tackon imgsetsdest "Jojo_3D_11pt" ) )
)
)
)
( if( IN imgsets 3 )
(
( copyfiles
( prompt "Installing MUI image set Jojo_3D_13pt.." )
( source "/MUI-Images/Jojo_3D_13pt" )
( all )
( dest ( tackon imgsetsdest "Jojo_3D_13pt" ) )
)
)
)
( if( IN imgsets 4 )
(
( copyfiles
( prompt "Installing MUI image set Jojo_Outline_11pt.." )
( source "/MUI-Images/Jojo_Outline_11pt" )
( all )
( dest ( tackon imgsetsdest "Jojo_Outline_11pt" ) )
)
)
)
( if( IN imgsets 5 )
(
( copyfiles
( prompt "Installing MUI image set Jojo_Outline_13pt.." )
( source "/MUI-Images/Jojo_Outline_13pt" )
( all )
( dest ( tackon imgsetsdest "Jojo_Outline_13pt" ) )
)
)
)
)
)
( complete 42 )
; --------------------
; Install the palettes
; --------------------
( if( IN parts 2 )
(
( set palettedest
( askdir
( prompt "Please select a place for the color palettes." )
( default "SYS:Prefs/Presets" )
( help "Choose a directory where the palettes should be copied to." )
)
)
( working "Installing color palettes" )
( makedir palettedest )
( if ( < ver 39 )
(
( copyfiles
( prompt "Installing OS 2.x palettes.." )
( source "/OS2Palettes" )
( all )
( dest palettedest )
( confirm )
( help @copyfiles-help )
)
)
(
( copyfiles
( prompt "Installing OS 3.x palettes.." )
( source "/OS3Palettes" )
( all )
( dest palettedest )
( confirm )
( help @copyfiles-help )
)
)
)
)
)
( complete 56 )
; --------------------
; Install the background patterns
; --------------------
( if( IN parts 3 )
(
( set patdest
( askdir
( prompt "Please select a place for the background patterns." )
( default "SYS:Prefs/Patterns" )
( help "Choose a directory where the background patterns should be copied to. This should be "
"the same directory as your old directory with the MagicWB patterns in it." )
)
)
( working "Installing background patterns" )
( makedir patdest )
( copyfiles
( prompt "Installing background patterns.." )
( source "/Patterns" )
( all )
( dest patdest )
( confirm )
( help @copyfiles-help )
)
)
)
( complete 70 )
; --------------------
; Install the 2.x background patterns
; --------------------
( if( IN parts 4 )
(
( set winpatdest
( askdir
( prompt "Please select a place for the OS 2.x window background patterns." )
( default "SYS:Prefs/Presets" )
( help "Choose a directory where the window patterns should be copied to. This is normally "
"SYS:Prefs/Presets/." )
)
)
( working "Installing OS 2.x window background patterns" )
( makedir winpatdest )
( copyfiles
( prompt "Installing OS 2.x window patterns.." )
( source "/OS2WinPatterns" )
( all )
( dest winpatdest )
( confirm )
( help @copyfiles-help )
)
)
)
( complete 84 )
; --------------------
; Install the mouse pointers
; --------------------
( if( IN parts 5 )
(
( set ptrdest
( askdir
( prompt "Please select a place for the mouse pointers." )
( default "SYS:Prefs/Presets" )
( help "Choose a directory where the mouse pointers should be copied to. This is normally "
"SYS:Prefs/Presets/." )
)
)
( working "Installing mouse pointers" )
( makedir ptrdest )
( copyfiles
( prompt "Installing mouse pointers.." )
( source "/Pointers" )
( all )
( dest ptrdest )
( confirm )
( help @copyfiles-help )
)
)
)
( complete 100 )
( exit "Installation of MagicExpansion 1.2 complete. Hope you'll have fun with it. "
"And don't forget this:\n\nMagicExpansion is Shareware." )